1 GOTO100 10 ************************************ 20 ********** THE RED PLANET ********** 30 ************************************ 40 * COPYRIGHT 1986 BY DILLINGERSOFT ** 50 ************************************ 60 ************************************ 70 *** WRITTEN BY ROBERT DILLINGER **** 80 ************************************ 85 ************************************ 90 ************ HAUPTTEIL ************* 95 ************************************ 100 REM ******************************* 101 REM *********** ANFANG ************ 102 REM ******************************* 103 H1=1000:H2=800:H3=700:H4=500:H5=400:H6=300:H7=200:H8=100:H9=50:HZ=20 105 DIMF(16) 110 VIC=53248:SID=54272 130 F(1)=5:F(2)=28:F(3)=31:F(4)=144:F(5)=156:F(6)=158: 140 F(7)=159:F(8)=129:F(10)=149:F(11)=150:F(12)=151:F(13)=152:F(14)=153: 150 F(15)=154:F(16)=155 160 BEGINN=49152:Z1=32768+2040:Z2=Z1+1:Z3=Z1+2 170 Z4=Z1+3:Z5=Z1+4:Z6=Z1+5 180 Z7=Z1+6:Z8=Z1+7 190 WERT=BE+21:LEVEL=1:LIVES=3 200 FA(1)=F(1):FA(2)=F(2) 210 B2=49250 220 FR=0 230 SC=0:POKEBE+16+12,0:POKEBE+16+13,0:IFFLAG=5THENFLAG=0:GOTO270 250 GOTO10000 270 ONLEVELGOSUB1000,6000,7000,8000,9000 300 REM ******************************* 301 REM ****** MASCHINE AUFRUFEN ****** 302 REM ******************************* 305 SYSBEGINN 310 P=PEEK(WERT) 315 IFP=2THENGOTO350 320 IFP=1THENGOTO400 325 IFP=3THENGOTO450 330 IFP=4THENGOTO2500 340 STOP 350 REM ******************************* 351 REM ************ PAUSE ************ 352 REM ******************************* 353 POKE198,0:GOSUB2000:H=1 355 GETA$:IFA$<>""THENGOTO390 360 PRINT""; 365 PRINTCHR$(F(H));"PAUSE "; 370 PRINT"[157][157][157][157][157][157] "; 375 PRINTCHR$(F(H));"[157][157][157][157][157][157]PRESS "; 380 PRINTCHR$(F(H));"[157][157][157][157][157][157] ANY "; 383 PRINTCHR$(F(H));"[157][157][157][157][157][157] KEY "; 385 H=H+1:IFH=17THENH=1 387 GOTO355 390 GOSUB5340:SYSB2:GOTO310 400 REM ******************************* 403 REM ********** NEW GAME *********** 405 REM ******************************* 410 GOSUB2000:POKEVIC+21,0:GOTO110 450 REM ******************************* 455 REM ************ DEAD ************* 460 REM ******************************* 470 GOSUB2000 475 POKEVIC+21,PEEK(VIC+21)AND127 480 POKEVIC+14,0 490 POKEVIC+15,211 500 POKEVIC+29,128:POKEVIC+30,0 510 POKEZ8,136 550 POKEZ7,133 560 GOSUB2120 570 POKEZ7,134 580 GOSUB2210 590 POKEZ7,135 600 GOSUB2310 605 POKEVIC+46,15 610 POKESID+7,0:POKESID+8,5 615 POKESID+9,0:POKESID+10,10 620 POKESID+12,3+3*16:POKESID+13,3+3*16 630 POKESID+11,0:POKESID+24,15 640 POKEVIC+21,PEEK(VIC+21)OR128 650 FORB=0TO210:POKESID+11,65 670 POKEVIC+14,B 680 IF(PEEK(VIC+30)AND192)=192THENPOKEVIC+12,PEEK(VIC+12)+1 690 IFPEEK(VIC+12)=255THENGOTO720 700 POKESID+11,64 710 NEXTB 720 POKEVIC+16,64:POKEVIC+12,0 730 FORB=0TO43:POKESID+11,65 740 POKEVIC+14,PEEK(VIC+14)+1 750 POKEVIC+12,B 760 IFPEEK(VIC+14)=255THENGOTO790 770 POKESID+11,64 780 NEXTB 790 POKEVIC+16,192:POKEVIC+14,0 800 FORB=0TO90:POKESID+11,65 810 POKEVIC+14,B 820 POKEVIC+12,PEEK(VIC+12)+1 830 POKESID+11,64 840 NEXTB 900 LIVES=LIVES-1:POKEVIC+21,PEEK(VIC+21)AND63 910 IFLIVES=0THENGOTO20000 920 FORF=0TO14STEP2:POKEVIC+F,0:NEXT 930 POKEVIC+1,0:POKEVIC+3,31:POKEVIC+5,62:POKEVIC+7,93 940 POKEVIC+9,124:POKEVIC+11,155:POKEVIC+13,186:POKEVIC+15,217 950 GOTO270 1000 REM ****************************** 1003 REM ******** ERSTES BILD ********* 1005 REM ****************************** 1010 PRINT"[147]"; 1020 GOSUB5000 1030 REM *********** ZEIGER *********** 1040 POKEZ1,138:POKEZ2,138:POKEZ3,138 1050 POKEZ4,131:POKEZ5,131:POKEZ6,131 1100 REM *********** WERTE ************ 1110 POKEBE+32+12,1 1120 POKEBE+32+5,141:POKEBE+32+6,138 1130 POKEBE+4,255 1140 POKEBE+9,20 1150 POKEBE+15,4 1160 POKEBE+17,100 1170 POKEBE+32+13,10 1180 POKEBE+16+4,40 1190 POKEBE+32,11 1200 POKEBE+16+7,20 1210 POKEBE+32+10,10 1220 POKEBE+16+9,60 1230 POKEVIC+37,7:POKEVIC+38,6 1240 POKEVIC+39,7:POKEVIC+40,10:POKEVIC+41,13 1250 POKEVIC+42,3:POKEVIC+43,3:POKEVIC+44,3 1260 POKEBE+16+14,5 1300 PRINT"D[146] I[146] J[146] G[146] J[146] D[146] H[146]"; 1310 PRINT"E[146] GH[146] C[146] B[146] D[146] G[146] H[146] E[146] J[146] F[146]"; 1320 PRINT" E[146] H[146] G[146] I[146] J[146] I[146]"; 1330 PRINT" F[146] E[146] J[146] D[146] JJ[146] H[146]"; 1340 PRINT" C[146] EF[146] J[146] J[146] I[146] D[146] A[146]"; 1350 PRINT"I[146] GE[146] J[146] D[146] F[146] JI[146] H[146] JIJ[146]"; 1360 PRINT" II[146] G[146] J[146] IH[146] E[146] DIJ[146] D[146] IJJI[146]"; 1370 PRINT" JJ[146] IJI[146] H[146] IG[146] FF[146] GG[146] DED[146]"; 1380 PRINT"I[146] EF[146] D[146] EI[146] J[146] G[146] GH[146] EIE[146] IF[146]"; 1390 PRINT"I[146] J[146] IJI[146] EF[146] GH[146] HD[146] E[146] FF[146] D[146]"; 1400 PRINT" D[146] E[146] F[146] I[146] E[146] H[146]"; 1410 PRINT"IJ[146] E[146] FI[146] JH[146] C[146] B[146]"; 1420 PRINT" JHJI[146] E[146] DG[146] HIJ[146] H[146] HIJ[146]"; 1430 PRINT" HH[146] D[146] IJID[146] HJJJ[146] II[146] E[146]"; 1440 PRINTCHR$(141);"H[146] JI[146] H[146] D[146] E[146] G[146] HA[146] G[146] E[146]"; 1450 PRINT" HI[146] GHG[146] GFG[146] HIJ[146] F[146] G[146] H[146]"; 1460 PRINTCHR$(141);"IJ[146] H[146] E[146] HI[146] EF[146] FIJJ[146] FF[146]"; 1470 PRINT" D[146] FE[146] JI[146] DF[146] IJI[146] EHE[146] HIE[146]"; 1480 PRINT"G[146] H[146] II[146] J[146] IH[146] E[146] F[146]"; 1490 PRINTCHR$(141);" D[146] G[146] E[146] FEE[146] HG[146] IH[146]DF[146] E[146] F[146]" 1500 PRINT" IF[146] GH[146] JE[146] GH[146] HG[146] JJ"; 1510 PRINTCHR$(141);"IJI[146] FEF[146] EE[146] H[146] DD[146] H[146] G[146]"; 1520 PRINT" HI[146] GH[146] EF[146] F[146] DE[146] ED[146] F[146] E[146]"; 1530 PRINTCHR$(141);" J[146] E[146] HG[146] GG[146] IJJ[146] D[146] E[146] H[146]"; 1540 PRINT"F[146] HI[146] I[146] D[146] EF[146] FE[146]"; 1550 PRINTCHR$(141);" GG[146] H[146] IJIH[146] DG[146] HH[146] IJ[146] E[146] FEF[146] D[146]"; 1990 RETURN 2000 REM ****************************** 2005 REM ***** SOUND AUSSCHALTEN ****** 2010 REM ****************************** 2020 FORF=SIDTOSID+24:POKEF,0:NEXTF 2030 RETURN 2100 REM ****************************** 2105 REM ********* DEAD SOUND ********* 2110 REM ****************************** 2120 REM ******** DEAD SOUND I ******** 2130 POKESID+4,128:POKESID+24,15 2140 POKESID+1,4 2150 POKESID,0 2160 POKESID+5,63 2170 POKESID+6,15 2180 POKESID+4,129 2185 FORG=1TO700:NEXTG 2190 RETURN 2200 REM ******** DEAD SOUND II ******* 2210 POKESID+4,128:POKESID+24,15 2220 POKESID+1,7 2230 POKESID,0 2240 POKESID+5,31 2250 POKESID+6,15 2260 POKESID+4,129 2270 FORG=1TO600:NEXTG 2290 RETURN 2300 REM ******* DEAD SOUND III ******* 2310 POKESID+4,128:POKESID+24,15 2320 POKESID+1,12 2330 POKESID,0 2340 POKESID+5,12 2350 POKESID+6,3 2360 POKESID+4,129 2370 FORG=1TO500:NEXTG 2390 RETURN 2500 REM ****************************** 2510 REM *** NEUEN LEVEL EINSTELLEN *** 2520 REM ****************************** 2530 POKEVIC+21,64:GOSUB2000 2540 POKEZ8,146 2550 POKEVIC+14,PEEK(VIC+12) 2560 POKEVIC+15,PEEK(VIC+13)+21 2600 POKESID,0:POKESID+1,255 2610 POKESID+5,102 2620 POKESID+6,6 2630 POKEVIC+21,192 2640 POKESID+24,15 2700 FORB=PEEK(VIC+13)TO0STEP-1 2705 POKEZ8,147 2710 POKESID+4,129 2715 POKEZ8,146 2720 POKEVIC+13,B:POKEVIC+15,B+21 2740 POKESID+4,128 2780 POKEZ8,148 2790 NEXTB 2800 POKEVIC+21,0:PRINT"[147]" 2810 LEVEL=LEVEL+1 2820 IFLEVEL=6THENGOTO4000 2900 FORG=1TO70 2910 PRINTCHR$(F(N));" WELL DONE" 2915 PRINT" YOU GOT NEARER TO THE RED PLANET" 2920 PRINT" NOW GET READY FOR" 2930 PRINT" LEVEL ";LEVEL 2940 N=N+1 2950 IFN=16THENN=0 2960 GOSUB3730:NEXTG 2990 GOTO270 3700 REM ****************************** 3710 REM ******** SIEGER SOUND ******** 3720 REM ****************************** 3730 IFG<>1THENGOTO3800 3740 GOSUB2000:POKESID+24,15 3750 POKESID,0:POKESID+5,2 3760 POKESID+6,4 3800 POKESID+4,128:POKESID+1,G:POKESID+4,129:RETURN 4000 REM ****************************** 4010 REM ********* NEUE RUNDE ********* 4020 REM ****************************** 4100 POKEVIC+21,0:PRINT"[147]":GOSUB4700:POKE53280,0:PRINT"[147]" 4110 POKEZ1,153:POKEZ2,154:POKEZ3,155 4120 POKEZ4,129:POKEZ5,156:POKEZ6,158:POKEZ7,159 4130 PL$=""+SP$+"[146]":LA=3 4200 POKEVIC,49:POKEVIC+1,180 4210 POKEVIC+2,49:POKEVIC+3,180 4220 POKEVIC+4,49:POKEVIC+5,180 4230 POKEVIC+6,241:POKEVIC+7,100 4240 POKEVIC+8,255:POKEVIC+9,181 4250 POKEVIC+10,255:POKEVIC+11,181 4260 POKEVIC+12,255:POKEVIC+13,181 4270 POKEVIC+23,136:POKEVIC+29,136 4280 POKEVIC+14,241:POKEVIC+15,0:POKEVIC+28,0 4300 POKEVIC+46,1:POKEVIC+42,7 4310 POKEVIC+39,1:POKEVIC+40,7 4320 POKEVIC+41,14:POKEVIC+44,7 4330 POKEVIC+43,1:POKEVIC+45,10 4400 PRINT"";PL$;PL$;PL$;PL$;PL$; 4410 PRINT"[145][145][145][145][145][145] [164] [164][164] [164][164] [164][164] [164] [164] [160][164] [164][164] [164][164] [164][164][164] [164][164]"; 4450 POKESID,0:POKESID+1,255:POKESID+5,85:POKESID+6,8:POKESID+24,LA 4490 POKEVIC+21,143 4500 FORF=0TO160:POKESID+4,129:POKEZ8,146:POKEVIC+7,F 4505 IFINT(F/14)=F/14THENLA=LA+1:POKESID+24,LA 4510 IFFLAG<>4ANDF>124THENPOKEVIC+21,PEEK(VIC+21)-128:FLAG=4 4520 POKEVIC+15,F+42:POKESID+4,128:POKEZ8,147:NEXTF 4530 POKEVIC+21,127 4540 POKESID,0:POKESID+1,40:POKESID+5,51:POKESID+6,5:H=0 4550 FORG=255TO80STEP-1:POKESID+4,129:H=H+1:IFH=3THENH=0:GOTO4560 4555 GOTO4580 4560 IFPEEK(Z5)=156THENPOKEZ5,157:GOTO4580 4570 IFPEEK(Z5)=157THENPOKEZ5,156 4580 POKEVIC+8,G:POKEVIC+10,G:POKEVIC+12,G 4590 POKESID+4,128:NEXTG 4600 POKESID,0:POKESID+1,50:POKESID+5,58:POKESID+6,49:POKESID+24,15 4610 PRINT" [211]"; 4620 POKESID+4,33:FORF=1TO700:NEXT:POKESID+4,32:FORF=1TO300:NEXTF 4630 PRINT" [211]" 4640 POKESID+4,33:FORF=1TO200:NEXTF:POKESID+4,32:FORF=1TO200:NEXTF 4650 PRINT" [211]" 4660 POKESID+4,33:FORF=1TO600:NEXTF:POKESID+4,32:FORF=1TO2000:NEXTF 4670 LEVEL=1:POKEVIC+21,0:GOTO270 4700 POKESID+5,34:POKESID+6,34:POKESID+24,15:POKESID,0:PRINT"" 4800 FORG=1TO15STEP2:POKE53280,G:POKESID+1,G:POKESID+4,17 4805 PRINTCHR$(F(G));" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]" 4807 PRINT" [194]CONGRATULATIONS[194]" 4808 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]" 4810 PRINT:PRINT" YOU HAVE REACHED THE RED PLANET[145][145][145][145][145]":POKESID+4,16:NEXTG 4820 N=N+1:IFN=3THENGOTO4850 4830 PRINT"":GOTO4800 4850 H=H+1:PRINT"":N=0:IFH=6THENN=0:H=0:RETURN 4860 GOTO4800 4980 PRINT""; 4990 STOP 5000 REM ****************************** 5010 REM * GRUNDAUFBAU DES BILDSCHIRMS* 5020 REM ****************************** 5090 PRINTCHR$(F(14)) 5100 PRINT"[147]":POKE53280,0:POKE53281,0 5110 FORF=1TO24 5120 PRINT" [194] [194]"; 5130 NEXTF 5140 PRINT" [213][195][195][195][195][195][195][201]" 5150 PRINT" [202][195][195][195][195][195][195][203]"; 5155 SC=PEEK(BE+16+12)+256*PEEK(BE+16+13) 5160 PRINT"SCORE:"; 5165 PRINT"";SC 5168 PRINT"";CHR$(F(14));"[194]" 5170 POKEZ7,128:POKEZ8,130 5180 POKEVIC+28,7 5190 POKEBE+32+4,0 5200 POKEBE+16+11,0 5210 POKEBE+32+1,0:POKEBE+32+2,0:POKEBE+32+3,0 5230 POKEBE+16+5,0:POKEVI+30,0 5240 POKEBE+32+7,0:POKEBE+32+8,0:POKEBE+32+9,0 5250 POKEBE+32+14,0:POKEBE+32+15,0:POKEBE+48,0 5260 POKEVIC+45,7 5270 POKEBE+32+13,0 5280 POKEVIC+46,1 5300 PRINT"LEVEL:"; 5310 PRINT"[157][157][157][157][157]";LEVEL 5320 PRINT"LIVES:"; 5330 PRINT"[157][157][157][157][157]";LIVES 5335 GOSUB5340:GOTO5400 5340 PRINT"X[146] 1986"; 5350 PRINT"[157][157][157][157]BY"; 5360 PRINT"[157][157][157][157] DILL"; 5370 PRINT"[157][157][157][157]INGER"; 5380 PRINT"[157][157][157][157][157]SOFT" 5390 RETURN 5400 POKEVIC+29,0:POKEVIC+23,0 5410 POKEVIC+16,0 5450 PRINT"" 5900 RETURN 6000 REM ****************************** 6010 REM ******** ZWEITES BILD ******** 6020 REM ****************************** 6030 PRINT"[147]" 6040 GOSUB5000 6100 REM *********** ZEIGER *********** 6110 POKEZ1,139:POKEZ2,139:POKEZ3,139 6120 POKEZ4,132:POKEZ5,132:POKEZ6,132 6200 REM *********** WERTE ************ 6210 POKEBE+32+12,2 6220 POKEBE+32+5,142:POKEBE+32+6,139 6230 POKEBE+4,255 6240 POKEBE+9,10 6250 POKEBE+15,6 6260 POKEBE+17,70 6270 POKEBE+32+13,12 6280 POKEBE+16+4,35 6290 POKEBE+32,10 6300 POKEBE+16+7,15 6310 POKEBE+32+10,15 6320 POKEBE+16+9,30 6330 POKEVIC+37,2:POKEVIC+38,5 6340 POKEVIC+39,7:POKEVIC+40,10:POKEVIC+41,3 6350 POKEVIC+42,14:POKEVIC+43,14:POKEVIC+44,14 6360 POKEBE+16+14,10 6400 PRINT" F[146] E[146] J[146] D[146] JJ[146] H[146]"; 6410 PRINT" E[146] H[146] G[146] I[146] J[146] I[146]"; 6420 PRINTCHR$(141);" D[146] E[146] F[146] I[146] E[146] H[146]"; 6430 PRINT" E[146] FI[146] JH[146] C[146] B[146]"; 6440 PRINT" JHJI[146] E[146] DG[146] HIJ[146] H[146] HIJ[146]"; 6450 PRINT"G[146] H[146] II[146] J[146] IH[146] E[146] F[146]"; 6460 PRINT" D[146] G[146] E[146] FEE[146] HG[146] IH[146]DF[146] E[146] F[146]"; 6470 PRINT" J[146] E[146] HG[146] GG[146] IJJ[146] D[146] E[146] H[146]"; 6480 PRINT"F[146] HI[146] I[146] D[146] EF[146] FE[146]" 6490 PRINT" C[146] G[146] H[146] I[146] E[146] J[146] J[146]"; 6500 PRINTCHR$(141);" I[146] J[146] D[146] F[146]"; 6510 PRINT" E[146] F[146] HI[146] JIH[146] DF[146] D[146]"; 6520 PRINTCHR$(141);"J[146] JIJ[146] ED[146] BDEJ[146] DED[146] JIFDEGG[146]"; 6530 PRINT"J[146] FID[146] HD[146] C[146] HIJJFEF[146]"; 6540 PRINTCHR$(141);" IEFJJD[146] HIH[146] FHG[146] DGIJI[146] JIJ[146]"; 6550 PRINT"A[146] D[146] DF[146] GHG[146] EF[146] DE[146] FDF[146] GGEFH[146]"; 6560 PRINTCHR$(141);" D[146] FF[146] HH[146] J[146] G[146] G[146] E[146]"; 6570 PRINT" DED[146] DF[146] F[146] GE[146] JI[146] HDE[146]"; 6580 PRINTCHR$(141);"G[146] E[146] D[146] G[146] E[146] G[146] D[146] F[146]"; 6590 PRINT" E[146] G[146] H[146] F[146] FHF[146] C[146] G[146] F[146]"; 6600 PRINTCHR$(141);"H[146] D[146] F[146] D[146] E[146] D[146] E[146]"; 6610 PRINT" I[146] JI[146] GD[146] EF[146] DIJD[146] IE[146] D[146]"; 6620 PRINTCHR$(141);"H[146] D[146] IJ[146] EI[146] IE[146] F[146] JG[146] FG[146]"; 6630 PRINT" I[146] H[146] GG[146] HJ[146] EH[146] G[146] G[146]"; 6640 PRINTCHR$(141);"J[146] E[146] GI[146] HI[146] HD[146] GF[146] DEI[146][145]"; 6990 RETURN 7000 REM ****************************** 7010 REM ******** DRITTES BILD ******** 7020 REM ****************************** 7030 PRINT"[147]" 7040 GOSUB5000 7100 REM *********** ZEIGER *********** 7110 POKEZ1,140:POKEZ2,140:POKEZ3,140 7120 POKEZ4,137:POKEZ5,137:POKEZ6,137 7200 REM *********** WERTE ************ 7210 POKEBE+32+12,3 7220 POKEBE+32+5,143:POKEBE+32+6,140 7230 POKEBE+4,255 7240 POKEBE+9,10 7250 POKEBE+15,7 7260 POKEBE+17,40 7270 POKEBE+32+13,20 7280 POKEBE+16+4,30 7290 POKEBE+32,9 7300 POKEBE+16+7,13 7310 POKEBE+32+10,20 7320 POKEBE+16+9,20 7330 POKEVIC+37,13:POKEVIC+38,14 7340 POKEVIC+39,2:POKEVIC+40,4:POKEVIC+41,8 7350 POKEVIC+42,15:POKEVIC+43,15:POKEVIC+44,15 7360 POKEBE+16+14,15 7400 PRINT" F[146] E[146] J[146] D[146] JJ[146] H[146]"; 7410 PRINT" G[146] A[146] F[146] E[146] J[146] E[146]"; 7420 PRINT" D[146] E[146] F[146] I[146] E[146] H[146]"; 7430 PRINT"F[146] HI[146] I[146] D[146] EF[146] FE[146]"; 7440 PRINTCHR$(141);"J[146] E[146] GI[146] HI[146] HD[146] GF[146] DEI[146][145]"; 7450 PRINT" H[146] B[146] F[146] D[146] E[146] D[146] E[146]"; 7460 PRINTCHR$(141);" F[146] I[146] J[146] D[146] B[146] G[146] J[146]"; 7470 PRINT"I[146] H[146] II[146] E[146] G[146] E[146]"; 7480 PRINTCHR$(141);" J[146] D[146] J[146] G[146] H[146] F[146] EE[146] F[146] H[146]"; 7490 PRINT" J[146] DI[146] A[146] D[146] E[146] F[146] F[146] "; 7500 PRINTCHR$(141);"J[146] F[146] E[146] D[146] I[146] J[146] H[146]"; 7510 PRINT"HG[146] H[146] D[146] J[146] H[146] J[146]"; 7520 PRINTCHR$(141);"D[146] E[146] I[146] KL[146] H[146] C[146] J[146]"; 7530 PRINT" F[146] J[146] BMN[146] F[146] H[146]"; 7540 PRINTCHR$(141);" J[146] J[146] A[146] J[146] I[146]"; 7550 PRINT" EF[146] HF[146] B[146] J[146]"; 7560 PRINTCHR$(141);"G[146] B[146] D[146] I[146] HJIJ[146]"; 7570 PRINT" HA[146] D[146] H[146] EHE[146]"; 7580 PRINTCHR$(141);" D[146] G[146] E[146] J[146]"; 7590 PRINT" DE[146] IJ[146] E[146] D[146] F[146]"; 7600 PRINTCHR$(141);"FI[146] E[146] D[146] H[146] H[146] J[146] G[146] D[146] F[146]"; 7610 PRINT" H[146] J[146] FF[146] G[146] D[146] E[146]"; 7620 PRINTCHR$(141);"D[146] HD[146] E[146] I[146] EFF[146] E[146]"; 7630 PRINT"J[146] G[146] H[146] D[146] F[146] H[146] GJIFE[146]"; 7640 PRINTCHR$(141);" FG[146] D[146] E[146] D[146] B[146] IED[146] A[146] EDD[146]"; 7990 RETURN 8000 REM ****************************** 8010 REM ******** VIERTES BILD ******** 8020 REM ****************************** 8030 PRINT"[147]" 8040 GOSUB5000 8100 REM *********** ZEIGER *********** 8110 POKEZ1,144:POKEZ2,144:POKEZ3,144 8120 POKEZ4,152:POKEZ5,152:POKEZ6,152 8200 REM *********** WERTE ************ 8210 POKEBE+32+12,4 8220 POKEBE+32+5,145:POKEBE+32+6,144 8230 POKEBE+4,255 8240 POKEBE+9,10 8250 POKEBE+15,7 8260 POKEBE+17,35 8270 POKEBE+32+13,30 8280 POKEBE+16+4,30 8290 POKEBE+32,9 8300 POKEBE+16+7,13 8310 POKEBE+32+10,10 8320 POKEBE+16+9,13 8330 POKEVIC+37,15:POKEVIC+38,4 8340 POKEVIC+39,1:POKEVIC+40,3:POKEVIC+41,7 8350 POKEVIC+42,1:POKEVIC+43,1:POKEVIC+44,1 8360 POKEBE+16+14,20 8400 PRINT"A[146] D[146] E[146] F[146] H[146] E[146] G[146]"; 8410 PRINT"J[146] F[146] I[146] G[146] E[146] D[146] E[146]"; 8420 PRINT" B[146] J[146] H[146] E[146] D[146] E[146] E[146]"; 8430 PRINT" E[146] D[146] G[146] J[146] F[146] H[146]"; 8440 PRINTCHR$(141);"FG[146] C[146] B[146] F[146] E[146] H[146] G[146]"; 8450 PRINT" H[146] I[146] E[146] J[146] F[146]"; 8460 PRINTCHR$(141);" G[146] F[146] E[146] A[146]"; 8470 PRINT" H[146] IE[146] F[146] ED[146] GF[146] D[146] E[146]"; 8480 PRINTCHR$(141);" F[146] E[146] E[146] E[146] I[146]"; 8490 PRINT" G[146] H[146] F[146] A[146] C[146]"; 8500 PRINTCHR$(141);" E[146] D[146] J[146] E[146] D[146]"; 8510 PRINT"H[146] D[146] E[146] G[146] OPQ[146] H[146] F[146]"; 8520 PRINTCHR$(141);" E[146] GJ[146] RST[146] D[146]"; 8530 PRINT" D[146] JE[146] UVW[146] EFD[146]"; 8540 PRINTCHR$(141);" JF[146] E[146] IH[146] D[146] H[146] G[146]"; 8550 PRINT"E[146] D[146] D[146] E[146] E[146] D[146]"; 8560 PRINTCHR$(141);" E[146] EFD[146] E[146]"; 8570 PRINT" J[146] G[146] E[146] B[146] D[146] E[146]"; 8580 PRINTCHR$(141);"H[146] C[146] F[146] I[146] E[146] G[146]"; 8590 PRINT" E[146] F[146] D[146] G[146] E[146] G[146]"; 8600 PRINTCHR$(141);" B[146] G[146] A[146] FE[146] D[146] J[146]"; 8610 PRINT"D[146] EGH[146] EJI[146] D[146] E[146]"; 8620 PRINTCHR$(141);" F[146] E[146] D[146] A[146] F[146] C[146]"; 8630 PRINT" G[146] E[146] D[146] E[146]"; 8640 PRINTCHR$(141);" D[146] J[146] FG[146] D[146] B[146] E[146]"; 8990 RETURN 9000 REM ****************************** 9010 REM ******* FUENFTES BILD ******** 9020 REM ****************************** 9030 PRINT"[147]" 9040 GOSUB5000 9100 REM *********** ZEIGER *********** 9110 POKEZ1,150:POKEZ2,150:POKEZ3,150 9120 POKEZ4,148:POKEZ5,148:POKEZ6,148 9200 REM *********** WERTE ************ 9210 POKEBE+32+12,5 9220 POKEBE+32+5,151:POKEBE+32+6,150 9230 POKEBE+4,255 9240 POKEBE+9,10 9250 POKEBE+15,8 9260 POKEBE+17,20 9270 POKEBE+32+13,40 9280 POKEBE+16+4,20 9290 POKEBE+32,8 9300 POKEBE+16+7,10 9310 POKEBE+32+10,7 9320 POKEBE+16+9,7 9330 POKEVIC+37,13:POKEVIC+38,15 9340 POKEVIC+39,14:POKEVIC+40,12:POKEVIC+41,8 9350 POKEVIC+42,7:POKEVIC+43,7:POKEVIC+44,7 9360 POKEBE+16+14,25 9400 PRINT"D[146] E[146] J[146] F[146]"; 9410 PRINT" B[146] B[146] H[146] E[146] D[146]"; 9420 PRINT" H[146] C[146] I[146]"; 9430 PRINT" E[146] G[146] E[146] D[146] G[146]"; 9440 PRINTCHR$(141);" J[146] G[146] F[146] D[146]"; 9450 PRINT" E[146] F[146] H[146] D[146] F[146]"; 9460 PRINTCHR$(141);" D[146] E[146] B[146] D[146] E[146] D[146]"; 9470 PRINT" D[146] E[146] H[146] A[146] E[146] G[146]"; 9480 PRINTCHR$(141);" D[146] E[146] D[146]"; 9490 PRINT"A[146] E[146] D[146] E[146] H[146] GF[146]"; 9500 PRINTCHR$(141);" D[146] E[146] E[146] D[146]"; 9510 PRINT" F[146] E[146] [173][174][178][176] F[146] E[146]"; 9520 PRINTCHR$(141);"DF[146] A[146] [177] [146][178] F[146] DG[146]"; 9530 PRINT" D[146] H[146] [179] [146][180] B[146] G[146]"; 9540 PRINTCHR$(141);" G[146] J[146] D[146] [181][182][183][184] G[146] E[146] A[146]"; 9550 PRINT" D[146] E[146] E[146] B[146]"; 9560 PRINTCHR$(141);" D[146] E[146] F[146] G[146]"; 9570 PRINT"D[146] E[146] G[146] H[146] D[146]"; 9580 PRINTCHR$(141);" D[146] E[146] E[146] F[146] D[146] E[146]"; 9590 PRINT" F[146] A[146] D[146] E[146] F[146]"; 9600 PRINTCHR$(141);" D[146] F[146] E[146] E[146] D[146] E[146] D[146]"; 9610 PRINT"F[146] G[146] D[146] E[146]"; 9620 PRINTCHR$(141);" D[146] E[146] I[146] E[146]"; 9630 PRINT" D[146] EA[146] GH[146] C[146]"; 9640 PRINTCHR$(141);" E[146] F[146] G[146] J[146] H[146]"; 9990 RETURN 10000 REM ***************************** 10010 REM ********* TITELBILD ********* 10020 REM ***************************** 10025 POKE198,0:POKEVIC+21,0:GOSUB2000 10030 PRINT"[147]";:POKE53280,0:POKE53281,0 10032 SP$=" " 10033 A$(2)=SP$+"[194]F1[194] = SPIELBEGINN [194]F3[194] = AUFLISTUNG DER FEINDE " 10034 A$(2)=A$(2)+"[194]F5[194] = DIE 10 BESTEN ERGEBNISSE [194]F7[194] = INFORMATION ZUR " 10035 A$(2)=A$(2)+"STEUERUNG"+SP$ 10036 A$(1)=SP$+"[213][195][195][201] [213][195][195][201] " 10037 A$(1)=A$(1)+"[213][195][195][201] [213][195][195][201] " 10038 A$(1)=A$(1)+" "+SP$ 10039 A$(3)=SP$+"[202][195][195][203] [202][195][195][203] " 10040 A$(3)=A$(3)+"[202][195][195][203] [202][195][195][203] " 10041 A$(3)=A$(3)+" "+SP$ 10042 G=1 10045 PRINTTAB(14);CHR$(FA(1));"[172][162][162][187][172][187][172][187]":PRINTTAB(13); 10050 PRINTCHR$(FA(2));"  [146]";CHR$(FA(1));"[190]";CHR$(FA(2));" [146]";CHR$(FA(1));"[161]"; 10060 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[161]":PRINTTAB(13); 10080 PRINTCHR$(FA(2));"  [146]";CHR$(FA(1));"[161]";CHR$(FA(2));"  "; 10090 PRINTCHR$(FA(1));"[146][161]":PRINTTAB(13); 10110 PRINTCHR$(FA(2));"  ";CHR$(FA(1));"[146][190] "; 10120 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[190]"; 10130 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[190]" 10140 PRINT"";TAB(22);CHR$(FA(1));"[172][162][162][187]" 10145 PRINTTAB(22);CHR$(FA(2));" [162][162][146]";CHR$(FA(1));"[190]" 10150 PRINTTAB(22);CHR$(FA(2));" [162][162][146]";CHR$(FA(1));"[161]" 10160 PRINTTAB(22);CHR$(FA(2));" [146]";CHR$(FA(1));"[190]" 10200 PRINT:PRINTTAB(11);CHR$(FA(1));"[169] [206][146] [169] [206][146] [169] [206]" 10210 PRINTTAB(11);CHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10220 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169]"; 10230 PRINTCHR$(FA(2));"  [146]";CHR$(FA(1));"[206][206][146]" 10240 PRINTTAB(11);CHR$(FA(2));" [146]";CHR$(FA(1));" [146]"; 10250 PRINTCHR$(FA(2));" ";CHR$(FA(1));" [146] "; 10260 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206] [206][146] "; 10270 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146]"; 10280 PRINTCHR$(FA(2));" ";CHR$(FA(1));" [146]" 10290 PRINTTAB(11);CHR$(FA(2));" [146]";CHR$(FA(1));"[206][146] "; 10300 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 10310 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [169][146]"; 10320 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146]" 10330 PRINTTAB(11);CHR$(FA(2));" [146]";CHR$(FA(1));" [146]"; 10340 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206][206][146] "; 10350 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206] [206][146] "; 10360 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206][146]"; 10370 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169]" 10380 PRINTTAB(11);CHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 10390 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 10400 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 10410 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169]":PRINT 10500 PRINTCHR$(FA(1));"[169] [206][146] [169][206][146] [169] [206][146] [169][206][146] [169][206][146] [169] [206][146] [169] [206][146]"; 10510 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10520 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10530 PRINTCHR$(FA(1));"[169][146]";CHR$(FA(2));" [146]"; 10540 PRINTCHR$(FA(1));"[206][206][146] ";CHR$(FA(2));" "; 10550 PRINTCHR$(FA(1));" [146] ";CHR$(FA(2));" [146]"; 10560 PRINTCHR$(FA(1));" [146] ";CHR$(FA(2));" [146]"; 10570 PRINTCHR$(FA(1));"[169] ";CHR$(FA(2));" [146]"; 10580 PRINTCHR$(FA(1));"[169]"; 10590 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10600 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10610 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10620 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10630 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206][206][146] "; 10640 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10650 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10660 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] " 10670 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206] [146]"; 10680 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10690 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10700 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10710 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10720 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206][206][146]"; 10730 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10740 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206] [206][146] "; 10750 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146]" 10760 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 10770 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10780 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206] [146]"; 10790 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10800 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146]"; 10810 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206][146]"; 10815 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10820 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 10830 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146]" 10840 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10850 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10860 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10870 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10880 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10890 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10900 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146]" 10910 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10920 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206] [206][146] "; 10930 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10940 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10950 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10960 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146] "; 10970 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[206] [206][146] "; 10980 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));" [146]" 10990 GOTO12020 11000 REM ***************************** 11010 REM ******** CONTROL INFO ******* 11020 REM ***************************** 11030 PRINT"[147][154] [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]" 11040 PRINT" [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]" 11050 PRINT" [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]" 11060 PRINT" [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]" 11070 PRINT" [146]  [146]  [146]  [146]  [146]  [146]  [146]  [146]  " 11200 PRINT" DU BENUETZT EINEN JOYSTICK IN PORT 2" 11210 PRINT"DRUECKE" 11220 PRINT" [213][195][195][201]" 11230 PRINT" [194]F1[194] UM DAS SPIEL ZU BEENDEN" 11240 PRINT" [202][195][195][203]" 11250 PRINT:PRINT" [213][195][195][201]" 11260 PRINT" [194]F7[194] UM EINE PAUSE EINZULEGEN" 11270 PRINT" [202][195][195][203]" 11280 PRINT" DRUECKE DIE FEUERTASTE" 11290 PRINT" UM ZUM TITELBILD ZURUECKZUKEHREN[145]" 11300 POKE53280,N:N=N+1:IFN=16THENN=0 11310 JOY=PEEK(56320) 11320 IF(JOYAND16)=0THENGOTO10000 11900 GOTO11300 12000 REM ***************************** 12010 REM ****** TITELBILD ZWEI ******* 12020 REM ***************************** 12025 N=0 12030 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 12040 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 12050 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 12060 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 12070 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 12080 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 12090 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169] "; 12100 PRINTCHR$(FA(2));" [146]";CHR$(FA(1));"[169]" 12300 PRINT""; 12310 FORM=1TO3:PRINT"";MID$(A$(M),G,40);:NEXTM 12320 G=G+1 12330 IFG=LEN(A$(2))THENG=1 12335 PRINT""; 12340 PRINTCHR$(F(N));" BY ROBERT DILLINGER"; 12350 N=N+1:IFN=16THENN=1 12360 GETA$:IFA$<>""THENGOTO12400 12370 GOTO12300 12400 REM ***************************** 12410 REM ****** TASTE GEDRUECKT ****** 12420 REM ***************************** 12430 IFA$=CHR$(133)THENFLAG=5:GOTO110 12440 IFA$=CHR$(134)THENGOTO13000 12450 IFA$=CHR$(135)THENGOTO14000 12460 IFA$=CHR$(136)THENGOTO11000 12470 GOTO12300 13000 REM ***************************** 13010 REM *** AUFLISTUNG DER FEINDE *** 13020 REM ***************************** 13030 PRINT"[147]"; 13040 POKEZ1,138:POKEZ2,139:POKEZ3,140 13050 POKEZ4,144:POKEZ5,150 13100 POKEVIC+37,3:POKEVIC+38,14 13110 POKEVIC+39,7:POKEVIC+40,1:POKEVIC+41,10 13115 POKEVIC+42,1:POKEVIC+43,2 13120 POKEVIC+23,0:POKEVIC+29,0 13200 POKEZ6,128 13210 POKEVIC+44,7 13310 POKEVIC+16,0:POKEVIC+28,31 13330 POKEVIC+10,160:POKEVIC+11,200 13340 POKEVIC,100:POKEVIC+1,70 13350 POKEVIC+2,130:POKEVIC+3,100 13360 POKEVIC+4,105:POKEVIC+5,120 13370 POKEVIC+6,90:POKEVIC+7,150 13380 POKEVIC+8,112:POKEVIC+9,168 13500 POKEVIC+21,63 13600 PRINT" DEINE GEGNER PUNKTE" 13610 PRINT"";TAB(19);"5 ODER 10 PUNKTE" 13620 PRINT"";TAB(18);"10 ODER 20 PUNKTE" 13630 PRINT"";TAB(18);"15 ODER 30 PUNKTE" 13640 PRINT"";TAB(18);"20 ODER 40 PUNKTE" 13650 PRINT"";TAB(18);"25 ODER 50 PUNKTE" 13660 PRINT"";"DEIN RAUMSCHIFF[145][145][145][145][145][145][145][145]" 13700 PRINT""; 13710 PRINTCHR$(F(N));" DRUECKE F7" 13720 PRINT" UM ZUM TITELBILD ZURUECKZUKOMMEN[145]"; 13730 N=N+1:IFN=16THENN=0 13740 GETA$:IFA$="[136]"THENGOTO10000 13750 GOTO13700 13900 STOP 14000 REM ***************************** 14010 REM ******** HIGH-SCORES ******** 14020 REM ***************************** 14030 POKE198,0:H=0:N=5:POKEVIC+21,0:G=0 14100 PRINT"[147] DIE ZEHN BESTEN ERGEBNISSE :" 14110 PRINT" PLATZ 1 : ";H1 14120 PRINT"[158] PLATZ 2 : ";H2 14130 PRINT"[129] PLATZ 3 : ";H3 14140 PRINT"[150] PLATZ 4 : ";H4 14150 PRINT"[153] PLATZ 5 : ";H5 14160 PRINT"[159] PLATZ 6 : ";H6 14170 PRINT"[155] PLATZ 7 : ";H7 14180 PRINT" PLATZ 8 : ";H8 14190 PRINT"[154] PLATZ 9 : ";H9 14200 PRINT"[156] PLATZ 10: ";HZ 14400 PRINTCHR$(F(G));:G=G+1:IFG>=17THENG=0 14405 PRINT" [213][195][195][201]" 14410 PRINT" DRUECKE [194]F7[194]" 14420 PRINT" [202][195][195][203]" 14430 PRINT" UM ZUM TITELBILD ZURUECKZUGELANGEN"; 14440 GETA$:IFA$=CHR$(136)THENFLAG=0:GOTO10000 14500 IFFLAG=3THENGOTO14800 14600 GOTO14400 14800 H=H+1:IFH=5THENH=0:GOTO14850 14810 GOTO14400 14850 IFN=144THENN=5:GOTO14870 14860 IFN=5THENN=144 14870 PRINTLA$;CHR$(N);"DEIN ERGEBNIS"; 14900 GOTO14400 20000 REM ***************************** 20010 REM ********* GAME OVER ********* 20020 REM ***************************** 20030 GOSUB2000:PRINT"[147]" 20040 POKEVIC+21,0 20050 POKEZ1,149:POKEZ2,149:POKEZ3,149:POKEZ4,149 20060 POKEZ5,149:POKEZ6,149:POKEZ7,149:POKEZ8,149 20070 POKEVIC+29,255:POKEVIC+16,0:POKEVIC+23,0 20080 POKEVIC+28,0:FORF=VIC+39TOVIC+46:POKEF,1:NEXTF 20090 POKEVIC,140:POKEVIC+1,49 20100 POKEVIC+2,255:POKEVIC+3,49 20110 POKEVIC+4,255:POKEVIC+5,143 20120 POKEVIC+6,255:POKEVIC+7,237 20130 POKEVIC+8,140:POKEVIC+9,237 20140 POKEVIC+10,24:POKEVIC+11,237 20150 POKEVIC+12,24:POKEVIC+13,143 20160 POKEVIC+14,24:POKEVIC+15,49:GOTO20190 20170 POKEVIC+39,2:POKEVIC+40,3:POKEVIC+41,1:POKEVIC+42,4 20180 POKEVIC+43,5:POKEVIC+44,14:POKEVIC+45,1:POKEVIC+46,7:RETURN 20190 POKESID+24,15:POKESID,0 20200 POKESID+5,3+3*16:POKESID+6,3 20300 POKEVIC+21,255 21000 POKESID+1,PEEK(VIC+1)-40:POKESID+4,129 21005 POKEVIC+1,PEEK(VIC+1)+1 21010 POKEVIC+2,PEEK(VIC+2)-1:POKEVIC+3,PEEK(VIC+3)+1 21020 POKEVIC+4,PEEK(VIC+4)-1 21030 POKEVIC+6,PEEK(VIC+6)-1:POKEVIC+7,PEEK(VIC+7)-1 21040 POKEVIC+9,PEEK(VIC+9)-1 21050 POKEVIC+10,PEEK(VIC+10)+1:POKEVIC+11,PEEK(VIC+11)-1 21060 POKEVIC+12,PEEK(VIC+12)+1 21070 POKEVI+14,PEEK(VIC+14)+1:POKEVIC+15,PEEK(VIC+15)+1 21075 IFPEEK(VIC+1)=165THENGOTO21200 21080 POKESID+4,128 21085 IFPEEK(VIC+1)=255THENIFFLAG=1THENGOTO21400 21090 GOTO21000 21200 REM *********** WARTEN ********** 21210 POKESID+5,1+16:POKESID+6,3 21220 FORH=1TO15:FORF=0TO15:POKESID+4,17 21230 POKEVIC+39,F:POKEVIC+41,F:POKEVIC+42,F 21240 POKESID+1,INT(RND(1)*256):POKESID+4,16 21250 NEXTF:NEXTH 21300 GOSUB20170:FLAG=1:GOTO21000 21400 POKEVIC+4,PEEK(VIC+4)+1 21410 POKEVIC+12,PEEK(VIC+12)-1 21420 IFPEEK(VIC+4)=110THENGOTO21500 21430 GOTO21400 21500 FORF=1TO22:POKEVIC+4,PEEK(VIC+4)+1:POKEVIC+12,PEEK(VIC+12)+1 21510 NEXTF 21600 IF SC>HZTHENGOTO24000 22000 PRINT"[154] [213][195][195][201]" 22010 PRINT" DRUECKE [194]F7[194]" 22020 PRINT" [202][195][195][203]" 22030 PRINT 22040 PRINT" [158] UM ZUM TITELBILD ZURUECKZUKEHREN":PRINT:PRINT 22050 PRINT"[153] ODER 'Q',":PRINT 22060 PRINT"[156] WENN DU DAS PROGRAMM BEENDEN":PRINT 22070 PRINT" UND LOESCHEN WILLST[145]";:POKE198,0 22080 GET A$:IFA$="[136]"THENGOTO10000 22090 IFA$="Q"THENSYS64738 22100 GOTO22080 22420 REM ***************************** 24000 REM ***************************** 24010 REM * SCORE IN HIGHSCORE-LISTE ** 24020 REM ***************************** 24030 IFSC>H1THENGOTO25100 24040 IFSC>H2THENGOTO25200 24050 IFSC>H3THENGOTO25300 24060 IFSC>H4THENGOTO25400 24070 IFSC>H5THENGOTO25500 24080 IFSC>H6THENGOTO25600 24090 IFSC>H7THENGOTO25700 24100 IFSC>H8THENGOTO25800 24110 IFSC>H9THENGOTO25900 24120 IFSC>HZTHENGOTO26000 24200 STOP 25000 REM ***************************** 25010 REM ***** HIGH-SCORES ORDNEN **** 25020 REM ***************************** 25100 HZ=H9:H9=H8:H8=H7:H7=H6:H6=H5:H5=H4:H4=H3:H3=H2:H2=H1:H1=SC:LA$="" 25110 GOTO26100 25200 HZ=H9:H9=H8:H8=H7:H7=H6:H6=H5:H5=H4:H4=H3:H3=H2:H2=SC:LA$="" 25210 GOTO26100 25300 HZ=H9:H9=H8:H8=H7:H7=H6:H6=H5:H5=H4:H4=H3:H3=SC:LA$="" 25310 GOTO26100 25400 HZ=H9:H9=H8:H8=H7:H7=H6:H6=H5:H5=H4:H4=SC:LA$="" 25410 GOTO26100 25500 HZ=H9:H9=H8:H8=H7:H7=H6:H6=H5:H5=SC:LA$="" 25510 GOTO26100 25600 HZ=H9:H9=H8:H8=H7:H7=H6:H6=SC:LA$="" 25610 GOTO26100 25700 HZ=H9:H9=H8:H8=H7:H7=SC:LA$="" 25710 GOTO26100 25800 HZ=H9:H9=H8:H8=SC:LA$="" 25810 GOTO26100 25900 HZ=H9:H9=SC:LA$="" 25910 GOTO26100 26000 HZ=SC:LA$="" 26100 POKESID+5,9:POKESID+6,0:POKESID+24,15:POKESID,0 26105 FORG=1TO7:POKESID+1,G*10+10:POKESID+4,33:FORH=0TO15 26110 PRINTCHR$(F(H));" TOLLES ERGEBNIS" 26120 PRINT"DU HAST EINES DER ZEHN BESTEN ERGEBNISSE"; 26200 NEXTH:POKESID+4,32:NEXTG 27000 FLAG=3:GOTO14000